home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / hack / 2_3 / dogmove.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-06-20  |  7.5 KB  |  303 lines
  1. /*    SCCS Id: @(#)dogmove.c    1.4    87/08/08
  2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  3. /* dogmove.c - version 1.0 */
  4.  
  5. #include    "hack.h"
  6. #include "mfndpos.h"
  7. #include "mkroom.h"
  8. #include "edog.h"
  9.  
  10. /* return 0 (no move), 1 (move) or 2 (dead) */
  11. dog_move(mtmp, after) register struct monst *mtmp; {
  12. #ifndef REGBUG
  13. register
  14. #endif
  15.      int nx,ny,omx,omy,appr,nearer,j;
  16. int udist,chi,i,whappr;
  17. register struct monst *mtmp2;
  18. register struct permonst *mdat = mtmp->data;
  19. register struct edog *edog = EDOG(mtmp);
  20. struct obj *obj;
  21. struct trap *trap;
  22. xchar cnt,chcnt,nix,niy;
  23. schar dogroom,uroom;
  24. xchar gx,gy,gtyp,otyp;    /* current goal */
  25. coord poss[9];
  26. long info[9];
  27. #define GDIST(x,y) ((x-gx)*(x-gx) + (y-gy)*(y-gy))
  28. #define DDIST(x,y) ((x-omx)*(x-omx) + (y-omy)*(y-omy))
  29.  
  30.     if(moves <= edog->eattime) return(0);    /* dog is still eating */
  31.     omx = mtmp->mx;
  32.     omy = mtmp->my;
  33.     whappr = (moves - EDOG(mtmp)->whistletime < 5);
  34.     if(moves > edog->hungrytime + 500 && !mtmp->mconf){
  35.         mtmp->mconf = 1;
  36.         mtmp->mhpmax /= 3;
  37.         if(mtmp->mhp > mtmp->mhpmax)
  38.             mtmp->mhp = mtmp->mhpmax;
  39.         if(cansee(omx,omy))
  40.             pline("%s is confused from hunger.", Monnam(mtmp));
  41.         else    pline("You feel worried about %s.", monnam(mtmp));
  42.     } else
  43.     if(moves > edog->hungrytime + 750 || mtmp->mhp < 1){
  44. #ifdef WALKIES
  45.         if(mtmp->mleashed) {
  46.             mtmp->mleashed = 0;
  47.             pline("Your leash goes slack...");
  48.         }
  49. #endif
  50.         if(cansee(omx,omy))
  51.             pline("%s dies%s.", Monnam(mtmp),
  52.                   (mtmp->mhp >= 1) ? "" : " from hunger");
  53.         else
  54.             pline("You have a sad feeling for a moment, then it passes.");
  55.         mondied(mtmp);
  56.         return(2);
  57.     }
  58.     dogroom = inroom(omx,omy);
  59.     uroom = inroom(u.ux,u.uy);
  60.     udist = dist(omx,omy);
  61.  
  62.     /* maybe we tamed him while being swallowed --jgm */
  63.     if(!udist) return(0);
  64.  
  65.     /* if we are carrying sth then we drop it (perhaps near @) */
  66.     /* Note: if apport == 1 then our behaviour is independent of udist */
  67.     if(mtmp->minvent){
  68.         if(!rn2(udist) || !rn2((int) edog->apport))
  69.         if(rn2(10) < edog->apport){
  70.             relobj(mtmp, (int) mtmp->minvis);
  71.             if(edog->apport > 1) edog->apport--;
  72.             edog->dropdist = udist;        /* hpscdi!jon */
  73.             edog->droptime = moves;
  74.         }
  75.     } else {
  76.         if(obj = o_at(omx,omy)) if(!index("0_", obj->olet)){
  77.             if((otyp = dogfood(obj)) <= CADAVER){
  78.             nix = omx;
  79.             niy = omy;
  80.             goto eatobj;
  81.             }
  82.             if(obj->owt < 10*mtmp->data->mlevel)
  83.             if(rn2(20) < edog->apport+3)
  84.             if(rn2(udist) || !rn2((int) edog->apport)){
  85.             freeobj(obj);
  86.             unpobj(obj);
  87.             /* if(levl[omx][omy].scrsym == obj->olet)
  88.                 newsym(omx,omy); */
  89.             mpickobj(mtmp,obj);
  90.             }
  91.         }
  92.     }
  93.  
  94.     gtyp = UNDEF;    /* no goal as yet */
  95.     gx = gy = 0;    /* suppress 'used before set' message */
  96. #ifdef WALKIES
  97.     /* If he's on a leash, he's not going anywhere. */
  98.     if(mtmp->mleashed) {
  99.  
  100.         gtyp = APPORT;
  101.         gx = u.ux;
  102.         gy = u.uy;
  103.     } else
  104. #endif
  105.     /* first we look for food */
  106.         for(obj = fobj; obj; obj = obj->nobj) {
  107.         otyp = dogfood(obj);
  108.         if(otyp > gtyp || otyp == UNDEF) continue;
  109.         if(inroom(obj->ox,obj->oy) != dogroom) continue;
  110.         if(otyp < MANFOOD &&
  111.          (dogroom >= 0 || DDIST(obj->ox,obj->oy) < 10)) {
  112.             if(otyp < gtyp || (otyp == gtyp &&
  113.                 DDIST(obj->ox,obj->oy) < DDIST(gx,gy))){
  114.                 gx = obj->ox;
  115.                 gy = obj->oy;
  116.                 gtyp = otyp;
  117.             }
  118.         } else
  119.         if(gtyp == UNDEF && dogroom >= 0 &&
  120.            uroom == dogroom &&
  121.            !mtmp->minvent && edog->apport > rn2(8)){
  122.             gx = obj->ox;
  123.             gy = obj->oy;
  124.             gtyp = APPORT;
  125.         }
  126.         }
  127.  
  128.     if(gtyp == UNDEF ||
  129.       (gtyp != DOGFOOD && gtyp != APPORT && moves < edog->hungrytime)){
  130.         if(dogroom < 0 || dogroom == uroom){
  131.             gx = u.ux;
  132.             gy = u.uy;
  133. #ifndef QUEST
  134.         } else {
  135.             int tmp = rooms[dogroom].fdoor;
  136.                 cnt = rooms[dogroom].doorct;
  137.  
  138.             gx = gy = FAR;    /* random, far away */
  139.             while(cnt--){
  140.                 if(dist(gx,gy) >
  141.                 dist(doors[tmp].x, doors[tmp].y)){
  142.                     gx = doors[tmp].x;
  143.                     gy = doors[tmp].y;
  144.                 }
  145.                 tmp++;
  146.             }
  147.             /* here gx == FAR e.g. when dog is in a vault */
  148.             if(gx == FAR || (gx == omx && gy == omy)){
  149.                 gx = u.ux;
  150.                 gy = u.uy;
  151.             }
  152. #endif
  153.         }
  154.         appr = (udist >= 9) ? 1 : (mtmp->mflee) ? -1 : 0;
  155.         if(after && udist <= 4 && gx == u.ux && gy == u.uy)
  156.             return(0);
  157.         if(udist > 1){
  158.             if(!IS_ROOM(levl[u.ux][u.uy].typ) || !rn2(4) ||
  159.                whappr ||
  160.                (mtmp->minvent && rn2((int) edog->apport)))
  161.                 appr = 1;
  162.         }
  163.         /* if you have dog food he'll follow you more closely */
  164.         if(appr == 0){
  165.             obj = invent;
  166.             while(obj){
  167.                 if(obj->otyp == TRIPE_RATION){
  168.                     appr = 1;
  169.                     break;
  170.                 }
  171.                 obj = obj->nobj;
  172.             }
  173.         }
  174.     } else    appr = 1;    /* gtyp != UNDEF */
  175.     if(mtmp->mconf) appr = 0;
  176.  
  177.     if(gx == u.ux && gy == u.uy && (dogroom != uroom || dogroom < 0)) {
  178.     extern coord *gettrack();
  179.     register coord *cp;
  180.         cp = gettrack(omx,omy);
  181.         if(cp){
  182.             gx = cp->x;
  183.             gy = cp->y;
  184.         }
  185.     }
  186.  
  187.     nix = omx;
  188.     niy = omy;
  189.     cnt = mfndpos(mtmp,poss,info,ALLOW_M | ALLOW_TRAPS);
  190.     chcnt = 0;
  191.     chi = -1;
  192.     for(i=0; i<cnt; i++){
  193.         nx = poss[i].x;
  194.         ny = poss[i].y;
  195. #ifdef WALKIES
  196.         /* if leashed, we drag him along. */
  197.         if(dist(nx, ny) > 4 && mtmp->mleashed) continue;
  198. #endif
  199.         if(info[i] & ALLOW_M) {
  200.             mtmp2 = m_at(nx,ny);
  201.             if(mtmp2)
  202.                 if(mtmp2->data->mlevel >= mdat->mlevel+2 ||
  203.                    mtmp2->data->mlet == 'c')
  204.                 continue;
  205.             if(after) return(0); /* hit only once each move */
  206.  
  207.             if(hitmm(mtmp, mtmp2) == 1 && rn2(4) &&
  208.               mtmp2->mlstmv != moves &&
  209.               hitmm(mtmp2,mtmp) == 2) return(2);
  210.             return(0);
  211.         }
  212.  
  213.         /* dog avoids traps */
  214.         /* but perhaps we have to pass a trap in order to follow @ */
  215.         if((info[i] & ALLOW_TRAPS) && (trap = t_at(nx,ny))){
  216.             if(!trap->tseen && rn2(40)) continue;
  217.             if(rn2(10)) continue;
  218.         }
  219.  
  220.         /* dog eschewes cursed objects */
  221.         /* but likes dog food */
  222.         obj = fobj;
  223.         while(obj){
  224.             if(obj->ox != nx || obj->oy != ny)
  225.             goto nextobj;
  226.             if(obj->cursed) goto nxti;
  227.             if(obj->olet == FOOD_SYM &&
  228.             (otyp = dogfood(obj)) < MANFOOD &&
  229.             (otyp < ACCFOOD || edog->hungrytime <= moves)){
  230.             /* Note: our dog likes the food so much that he
  231.             might eat it even when it conceals a cursed object */
  232.             nix = nx;
  233.             niy = ny;
  234.             chi = i;
  235.              eatobj:
  236.             edog->eattime =
  237.                 moves + obj->quan * objects[obj->otyp].oc_delay;
  238.             if(edog->hungrytime < moves)
  239.                 edog->hungrytime = moves;
  240.             edog->hungrytime +=
  241.                 5*obj->quan * objects[obj->otyp].nutrition;
  242.             mtmp->mconf = 0;
  243.             if(cansee(nix,niy))
  244.                 pline("%s ate %s.", Monnam(mtmp), doname(obj));
  245.             /* perhaps this was a reward */
  246.             if(otyp != CADAVER)
  247.             edog->apport += 200/(edog->dropdist+moves-edog->droptime);
  248.             delobj(obj);
  249.             goto newdogpos;
  250.             }
  251.         nextobj:
  252.             obj = obj->nobj;
  253.         }
  254.  
  255.         for(j=0; j<MTSZ && j<cnt-1; j++)
  256.             if(nx == mtmp->mtrack[j].x && ny == mtmp->mtrack[j].y)
  257.                 if(rn2(4*(cnt-j))) goto nxti;
  258.  
  259. /* Some stupid C compilers cannot compute the whole expression at once. */
  260.         nearer = GDIST(nx,ny);
  261.         nearer -= GDIST(nix,niy);
  262.         nearer *= appr;
  263.         if((nearer == 0 && !rn2(++chcnt)) || nearer<0 ||
  264.             (nearer > 0 && !whappr &&
  265.                 ((omx == nix && omy == niy && !rn2(3))
  266.                 || !rn2(12))
  267.             )){
  268.             nix = nx;
  269.             niy = ny;
  270.             if(nearer < 0) chcnt = 0;
  271.             chi = i;
  272.         }
  273.     nxti:    ;
  274.     }
  275. newdogpos:
  276.     if(nix != omx || niy != omy){
  277.         if(info[chi] & ALLOW_U){
  278.             (void) hitu(mtmp, d(mdat->damn, mdat->damd)+1);
  279.             return(0);
  280.         }
  281.         mtmp->mx = nix;
  282.         mtmp->my = niy;
  283.         for(j=MTSZ-1; j>0; j--) mtmp->mtrack[j] = mtmp->mtrack[j-1];
  284.         mtmp->mtrack[0].x = omx;
  285.         mtmp->mtrack[0].y = omy;
  286.     }
  287. #ifdef WALKIES
  288.       /* an incredible kluge, but the only way to keep pooch near
  289.        * after he spends time eating or in a trap, etc...
  290.        */
  291.       else  if(mtmp->mleashed && dist(omx, omy) > 4) mnexto(mtmp);
  292. #endif
  293.  
  294.     if(mintrap(mtmp) == 2)    {        /* he died */
  295. #ifdef WALKIES
  296.         mtmp->mleashed = 0;
  297. #endif
  298.         return(2);
  299.     }
  300.     pmon(mtmp);
  301.     return(1);
  302. }
  303.